perm filename ALL.PUB[C,LES] blob
sn#782711 filedate 1985-01-21 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00011 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .rulebook←true << TRUE prints in rulebook format, else 8.5 x 11 >>
C00006 00003 .<< Cover >>
C00011 00004 .skip 200 << Preface >>
C00016 00005 .insert contents
C00017 00006 .begin "text"
C00020 00007 .macro get(fil) ⊂ begin "fil"
C00021 00008 .macro app(tit,skx) ⊂
C00022 00009 .<< Deadlines >>
C00033 00010 .<< Index >>
C00035 00011 .<< Contents >>
C00045 ENDMK
C⊗;
.rulebook←true; << TRUE prints in rulebook format, else 8.5 x 11 >>
.front←true; << TRUE prints editing remarks, table of cont., preface >>
.indexx←true; << TRUE prints index >>
.test←false; << TRUE prints index terms at right margin >>
.imprint←true; << TRUE sets format for IMPRINT-10 >>
.
.device xgp
.if rulebook then start
. height←66; width←63;
. page frame (height+7) high 92 wide;
. area text lines 4 to height chars 1 to width;
. !xgpcommands←"/PMAR=2640/TMAR=50/BMAR=20";
. end else start "8.5 x 11"
. height←52;
. page frame (height+10) high 92 wide;
. oddleftborder←evenleftborder←600;
. !xgpcommands←"";
. if test then start "margin notes"
. width←63;
. area text lines 4 to height chars 1 to width;
. end "margin notes" else start "plain"
. width←90;
. area text lines 4 to height chars 1 to width in 2 columns 4 apart
. end "plain";
. end "8.5 x 11"
.title area heading line 1 to 3 chars 1 to width;
.area terms lines 1 to (height+5) chars (width+3) to 90;
.turn on "%∂α→{\";
.font 1 "nonl"
.font 2 "nonli"
.font 3 "nonlb"
.font 4 "metlb"
.font 6 "non44"
.font 7 "nonm"
.font 8 "nons"
.font 9 "zero30"
.
. << interpretations and comments in right column, or not >>
.macro skip1(lin) ⊂
.skip (if lines<lin then 200 else 1)
. ⊃
.macro cb(tit); ⊂ if lines<4 then skip 200;;
. once center select 3
tit
. ⊃
.<< Cover >>
.segment←subhead←null; << page heading, subheading >>
.portion some
.place text
.fill adjust; select 1; preface 0;
.if front then start "editing"
.center select 6;
* * EDITING INFORMATION * *
* * NOT FOR PUBLICATION * *
.skip 3
U. S. CYCLING FEDERATION RULEBOOK
.fill
.if test then start "editors"
. oddleftborder←evenleftborder←500;
.skip 4; once center select 6;
Editors' Edition
.skip; select 1;
This is not the published version of the rulebook; the
right margin contains information to aid review and editing.
.if test then start "indexed"
.skip;
All indexed terms are printed both in the right margin (in italics, near the
section to which they apply) and in the alphabetical index at the end.
. end "indexed";;
.skip
Unfortunately, through a quirk in the document compiler,
the printing of information in the right margin
interferes with the text layout to the extent of reducing the
vertical spacing between some paragraphs.
Happily, this doesn't happen in the Publisher's Edition, where the right margin
is blank.
.skip 2
.once center select 6;
Notes for Publisher's Edition
.end "editors" else start "publishers"
.
.once center select 6;
Publisher's Edition
.end "publishers"
.skip; select 1; fill adjust; indent 0,0,0;
This material is camera-ready.
Page numbers appear at the top outside corner of each page (right
side on odd-numbered pages, left side on even).
.skip
.if imprint then start "imprint"
The printed area on these sheets is about 10.5 x 4.1 inches.
Assuming that the published page size is to be 8.5 x 4 inches, a camera
reduction of 75α% should be used.
.end "imprint" else start "old"
The printed area on these sheets is about 12.7 x 4.9 inches.
Assuming that the published page size is to be 8.5 x 4 inches, a camera
reduction of 62α% should be used.
.end "old"
.year←1984;
.skip
For 1985, the cover is to be RED.
It should carry the caption "UNITED STATES CYCLING FEDERATION"
at the top of the front cover.
Below that should be the USCF seal (%2without%1 the words "United States
Cycling Federation") and below that "Rulebook {(year+1)}".
.skip
There are {[3] pagetot} pages in this version of the rulebook, which means
that there are to be {[2] sheetot} sheets of paper.
The initial page sequence is to be as follows, with "L" and "R" denoting
pages that are left and right of the seam, respectively.
.begin nofill narrow 5; tabs 25; turn on "\";
L inside front cover \(blank)
R 1st page \"The U.S. Cycling Federation"
L 2nd page \(blank)
R 3rd page \"Contents"
L 4th page \continuation of "Contents"
R page 1 \"Constitution"
etc.
.end
.skip 4; once center select 2;
Compiled on {date}, at {time}
.skip 200; << Preface >>
.once center select 6;
The U.S. Cycling Federation
.skip 50 mills;
.fill adjust select 1; crspace indent 0,0,0;
The United States Cycling Federation (USCF) was organized in 1920 as the
Amateur Bicycle League of America and was incorporated in the State of New
York in 1921. The current name was adopted in 1975.
.skip
The USCF is the national governing body for cycling
of the U.S. Olympic Committee and is an affiliated member of
the International Amateur Cycling Federation (FIAC in French),
which is the amateur arm of the International Cycling Union (UCI).
The USCF is also allied with the International Human Powered
Vehicle Association (IHPVA).
.skip 1;
.once center select 6;
Preface
.skip 50 mills; select 1;
Some of the principal rule changes this year are as follows.
Regulations on "blood boosting" and
more explicit medical control procedures have been added (see
Racing Rule 5).
Jersey advertising regulations and certain other rider uniform rules
have been relaxed a bit (see Racing Rule 1I).
The right to appeal race decisions has been dropped; the right to protest
such decisions remains.
These and other regulations that have been added or amended since the
last edition are printed in %2italics.%1
.skip
This rulebook is published by the USCF Headquarters.
Additional copies may be requested by writing to:
.begin nofill narrow 5;
USCF Office
1750 E. Boulder Street
Colorado Springs, CO 80909.
.end
.skip
This rulebook was edited by Rich Weiss, Legislation Committee Chairman,
and Les Earnest, Technical Chairman.
Please send any legislative suggestions or remarks to:
.begin nofill narrow 5;
Richard Weiss
855 N. Cherry St.
Galesburg, IL 61401
.end
Remarks on appendices should be sent to:
.begin nofill narrow 5;
Les Earnest
12769 Dianne Drive
Los Altos Hills, CA 94022.
.end
.skip 2;
.cb Acknowledgement
Composition and typesetting services for this rulebook were donated by
IMAGEN Corporation, Santa Clara, California.
Composition was done on a DEC-10 computer at Stanford University's
Artificial Intelligence Laboratory using the PUB document compiler.
.if imprint then start
The master copy was printed on an IMAGEN Imprint-10 laser printer.
.end
.skip;
.begin center;
Copyright {(year+1)} by the United States Cycling Federation, Inc.
.skip
Previous editions copyright 1982, 1984
by the United States Cycling Federation, Inc.
.end
.skip
%2Copying without fee is permitted provided that the source is acknowledged.
.insert contents
.portion another
.place text
.end "editing"
.count page from 1 to 500;
.even heading(%3{page!},,{segment});
.odd heading (%3{subhead},,{page!});
.next page;
.begin "text"
. << major segment of document >>
.macro seg(tit,skp) ⊂
. segment←subhead←null;
. skip (if length("skp") then skp else 200);
. once center
%6tit
. send contents ⊂ skip (if lines>4 then 1 else 200); once center select 3
tit
. ⊃;
. segment←"tit";
. ⊃
.
.recursive macro dead(dat,txt) ⊂
. send deadline ⊂}≡dat≡txt.
. ⊃
. ⊃;
.if test then start "testit"
. place terms; fill nojust; indent 0,0; select 2; place text;
. macro ind(term) ⊂
. send index ⊂}≡term≡{page!}.
.⊃;
. begin
. liner←line+4; place terms;
. if line<liner then skip to line liner;;
. "term. "; place text;
. end ⊃
. end "testit" else start "notest"
. macro ind(term) ⊂
. send index ⊂}≡term≡{page!}.
.⊃;
. ⊃
. end "notest";
. macro skipa(lin,mil) ⊂
. if lines<lin then skip 200 else skip mil mills;
. ⊃
.at "@" ⊂ ("%2"); ⊃; << new section -- put in italics >>
.
.macro get(fil) ⊂ begin "fil"
. require "fil" source_file;
. end "fil";
. ⊃;
.
.get cons.pub
.get fees.pub
.get bylaws.pub
.begin "rules"
.require "gen.pub" source_file;
.require "road.pub" source_file;
.require "track.pub" source_file;
.require "record.pub" source_file;
.end "rules";
.<<
.>>
.macro app(tit,skx) ⊂
. segment←subhead←null;
. if length("skx") then skip skx else skip (if lines<20 then 200 else 2);
.once center select 6;
tit
.send contents ⊂
.tc(,"tit",{page!});
. ⊃;
. segment←"tit";
. ⊃
.get append.pub;
.get "champs.pub";
.get gears.pub;
.<<
.>>
.<< Deadlines >>
.indpage←page;
.recursive macro appl(tit,skx) ⊂
. segment←subhead←null;
. if length("skx") then skip skx else skip (if lines<20 then 200 else 2);
.once center select 6;
tit
. segment←"tit";
. ⊃
.if declaration(deadpage) then begin "deadl"
.dead("10/ 1",|Bid deadline for {(year+2)} National Championships for Criterium,
. Madison, and Cyclocross|);
.dead("10/ 1",|Bid deadline for {(year+2)} international events and
. Junior Worlds Trials|);
.
.page←deadpage;
.portion deadline;
.place text;
.appl USCF Officers and Committees;
.skip; fill
%2The terms of all officers and committee chairmen expire in {(year+1)}.
Addresses of those who are directors appear on the preceding page.
.skip; cb Executive Committee
.skip 80 mills
.ind current officers
.ind "officers, current"
.ind "President, current"
.ind "Vice Presidents, current"
.ind "Secretary, current"
.ind "Treasurer, current"
.ind "Technical Chairman, current"
.select 1;
.begin nofill turn on "\"; tabs 14,32;
President: \Phil Voxland \Vice Presidents --
Secretary: \Dale Hughes \1st: Richard DeGarmo (Central)
Treasurer: \Eugene Zeitler \2nd: Ted Kirkbride (West)
Tech. Chair.: \Les Earnest \3rd: Mike Fraysse (East)
.end
.once center
Executive Director: David Prouty
.skip1 4;
.cb Committee Chairmen
.skip 80 mills
.ind "Legislation Chair, current"
.skip 80 mills
.ind "Appeals Chair, current"
.begin "commit" nofill tabs 32;
Appeals Board: Tom Boyden \Development: Al Toefield
Budget: Eugene Zeitler \Legislation: Rich Weiss
Competition: Rich DeGarmo \Tech. Commission: Les Earnest
.skip; cb Athletes Representatives
.ind women athletes' representative
.ind men athletes' representative
.ind athletes' representatives
Women: Peggy Maass \Men: Tom Schuler
.end "commit"
.appl "{(year+1)} Deadlines",1;
.ind calendar
.ind deadlines
.ind bid deadlines
.fill nojust crspace indent 0,7;
.turn on "∂";
.at "≡" dat "≡" ⊂ break
→dat∂6 { ⊃
%3Date%1
.receive "≡≡";
.end "deadl";
.end "text"
.<< Index >>
.if indexx then begin "ind"
.page←indpage;
.area indy lines 4 to (height+3) chars 1 to width in 2 columns 1 apart;
.segment←subhead←"Index";
.portion index; place indy
.turn on "{∂"
.send contents ⊂
.tc(,"Index",{page!});
. ⊃;
.fill nojust; indent 0,6; preface 0;
.oldterm←termlist←null;
. at "≡"term"≡"pg"." ⊂ if "term"≠oldterm then start
. termlist; break; oldterm←"term"; termlist←"term pg";
. end else start
. if "pg"≠(termlist[∞-length("pg")+1 to ∞]) then termlist←termlist&", pg";;
. end;;
. ⊃
.once center select 3;
Page Index
.skip;
. receive "≡≡";
. termlist;
. end "ind";
.pagetot: (page + 4);
.sheetot: (page + 7)/4;
.<< Contents >>
.if front then begin "contents"
.every heading();
.portion contents; place text;
.next page
.once center select 6;
Contents
.SELECT 3; fill nojust; crbreak; preface 0; indent 0,10,4;
.turn on "→∂\"; tabs 59;
.dots←". . . . . . . . . . . . . . . . . .";
.wid←(58-6)*charw;
.chunk←xlength(". ");
.macro tc(art,tit,pg) ⊂
art ∂5tit →{(dots[∞ - 1 - (wid-xlength("tit"))/chunk*4 to ∞])}\ →pg
. ⊃
.macro ts(sec,tit,pg) ⊂
∂6sec ∂(10)tit →{(dots[∞+7-(wid-xlength("tit"))/chunk*4 to ∞])}\ →pg
. ⊃
.receive
.end "contents"